C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


u> FOO OO He HSS HS HE HE HS FEES TS OS FS FTE FS HE HS HS HEHE OS FS TD FS HS HS HS HS HES HEHEHE FTE ES HS TS HS ESOS HSS HS FS HSHSHSHSISIO “SHES HS SS 


HHHHHHHHHH 00 
HHHHHHHHHH 00 


WIV VUUYIUUUUWY 
VeEVYVUUYUYUUY 


aS 
CTS Eevee eRe usvesesheuseescesvenveleunoel 


ee koe 
mee alent 
eg a ag ee a tt on 
Oe Oe et tg ng Oe oe Oe a Oe Oa ag 
ese 
oe 


ee 

i el el ee 
ood 
me 


LLLLLLLLLL 
LLLLLLLLLL 


**F LE**1De*TIECHO 


EDTSTIECHO = echo a character ibes a -1 1384 9}: 3? +38 VAX-11 Bliss-32 V 
14-Sep-1 4: DISK AC SVMER MASTER: 

"e Re 8 re ' Echo a character 

DENT = 'v04-000' ' File: TIECHO.BLI Edit: JBS1006 

BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


e oe ‘ithe is gt UNDER A LICENSE AND MAY BE USED AND copies 
:* ONLY IN acer ANCE WITH THE TERMS OF SUCH Tit SE AND WITH THE 
'® INCLUSION 0 THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
t= COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i: Pecechetee’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AMD SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


® 
® 
® 
® 
® 
it CORPORATION. . 
® 
® 
® 
® 
® 
® 


i DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
1 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT -- The DEC Standard Editor 

ABSTRACT: 
Echo a character on the echo Line. 

ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: June 9, 1979 

MODIFIED BY: 

1-001 - Original. 18-FEB-1981. This module was crested by 
oxkreceing on ne EDTS$TI ECHOCH {roe module TINPUT. 

Regularized headers. JBS 2 -1981 

Fix module name. JBS {Fensent 

Modify for new error messa ge coordination. SMB 24-Jun-1982 


Don't Y peate EDT$$G_PRV_COL, EDTSSFMT_CH is maintaining it. JBS 05-Oct-1982 
Don't write into the parameter List. “JBS 17-Jun-1983 


Sssssososes 


WWWAIAUWAIWI Nn 


FS WW AIA AANA ANID 
B=ODDNOUEWN OOO 


— 
q 

oO 

wr 
i 


—— 
i 
oo 
Wms 
sene 


SSsStEPIEIEISS 


Be Oe Be Be Se Se Se Se Be Se Se Se Se Se Se Ge Fe Se Fe Ge Se Se Gs Se Ge Se Se Ge Ge Ge Ge Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se FHSS oe Oe Sees 


ce ce ee ed ed ed od ed od = dd od od 


Ww 
mo 
So 
So 
w 


cE i SRCSTIECHO. BLI; "te 


a 9 
Declarations n>» ‘nereeter 1enSep-19be 42:86:51 


32 rus 


OO 5 a ss ss 2 2 ss ss ss Ss a 


SSSESSSLASILA EEE SOSSSS 


. 
° 
° 
. 
° 
. 
° 
. 
° 
+ 
o 
os 
° 
. 
° 
° 
+ 
° 
. 
° 
. 
oO 
. 
° 
° 
© 
° 
. 
° 
+ 
° 
. 
° 
. 
e 
. 
° 
° 
. 
° 
° 
. 
. 
© 
. 
a 
. 
° 
. 
° 
. 
° 
a 
° 
° 
° 
. 
* 
. 
° 


AUF WN—O OONOUL WHO 


SES SS ES. 


SSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSTI_ECHOCH : NOVALUE; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
) 


i MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 


NONE 
EXTERNAL REFERENCES: 
in the routine 


ones Pa 
SRCJITIECHO.BLI;1 


CHO = echo a character 
-ECHOCH = echo a character 


ZSBTTL ‘EDTSSTI_ECHOCH 
GLOBAL ROUTINE EDTSSTI_ECHOCH ( 
) : NOVALUE = 
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14 
' FUNCTIONAL DESCRIPTION: 
cho a character on the echo Line. 


nN 9 

16-Sep-1984 755: VAX-11 Bliss-32 V4.0 
1a-sep-19 4 91:33:38 ISK$VM ASTER . 
- echo a character’ 


:CEDT 


' Echo a character 
! Ch 


aracter to echo 


If the character is a control character 


t is echoed as “letter. The echo flag is set to indicate that the line 


wiil need to be erased in the future. 


i FORMAL PARAMETERS: 


CHAR the character to be echoed. 


i IMPLICIT INPUTS: 


EDI$$G_TIN_ECHOFLG 
EDTS$$G_TIN~ECHOPOS 


i IMPLICIT OUTPUTS: 


EDT$$G_TIN_ECHOFLG 
EDT$$G_TIN~ECHOPOS 


i ROUTINE VALUE: 
NONE 

i SIDE EFFECTS: 
NONE 


BEGIN 

EXTERNAL ROUTINE 
EDTSSFMT_CH 
EDT$$OUTFMTBUF, 
EDT$$SC_POSCSIF; 


EXTERNAL 

EDT$$G_KPAD 

EDTS$G_MESSAGE_LINE, 
EDT$$G_TIN_ECHOFLG, 
EDT$$G~TIN~ECHOPOS; 


LOCAL 
C 


IF (.EDTS$G_TIN_ECHOFLG EQL 0) 
THEN 


'¢ 


' Are we in Keypad mode 
' Echo Line 

° AL, indicating character have been echoed 
! Posit 


ion on the echo line 


i For nokeypad commands do the echoing on the first message Line 


Sac Page 
SRCITIECHO.BLI;1 
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EDTSTIECHO EDTSTIECHO = echo a character “Se 4 VAX-11 Bliss-32 V4.0-74 Page 
ee ts OTs} -ECHOCH = echo a character 17-388: 138% 9}: 32: $ DTEKSVMMASTER CEDT SRCTTIECHO.BLI:1 . 
; 106 af } otherwise echo on the last message Line. 
; 146 1 
; 16 4 IF ( NOT .EDTSS$G_KPAD) 
3 149 f $ EDTSSSC_POSCSIF (.EDTS$G_MESSAGE_LINE, .EDT$$G_TIN_ECHOPOS) 
3 | 1 f 1 EDTSSSC_POSCSIF (.EDTS$G_MESSAGE_LINE + 1, .EDTS$G_TIN_ECHOPOS); 
3 ! § f § CH = .CHAR; 
3; 155 725 IF (.CH LSS %C° ") 
mm $ 7 $ THEN 
.:% 7 sis. 
.% § 7 g EDTSSFMT_CH (XC'*"); 
9 7 EDTSS6 eli N-ECHOPOS.§ = .EDT$$G_TIN_ECHOPOS + 1: 
: 18 3 oe 
: 16 7 s 
; 188 7 ; EDTSSFMT_CH (.CH); 
3 164 0734 EDTS$SOUT-FMTBUF (5; 
3; «165 of 5 EDTSS$G_TIN_ ECHOPOS = -EDTS$G_TIN_ECHOPOS + 1; 
: 166 7 3 EDT$$G-TIN-ECHOFLG = 1; 
: 167 07 ND; ! of routine EDT$$TI_ECHOCH 
-TITLE EDTST AE CHO EDTSTIECHO - echo a character 
-IDENT \V04-000\ 
.EXTRN EDTSSFMT_CH, EDTSSOUT_FMTBUF 
-EXTRN EDTS$$SC_POSCSIF 
-EXTRN EDTS$$G_RPAD, EDTS$G_MESSAGE_LINE 
EXTRN EDT$$G-TIN_ECHOFLG 
EXTRN EDTS$G_TIN~ ECHOPOS 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
003c 00000 -ENTRY EDTSS$TI_ECHOCH, Save R2,R3,R4,R5 : 
5 000 90006 0 9% 900¢ MOVAB EDT$$G_TIN_ECHOFLG, R5 F 
4 000 9 006 00 9E 0000 MOVAB EDTSSFAT_CA, R4 : 
3 000000006 9 9019 MOVAB EDT$$G_TIN -EchoPos, R3 ; 
$ D 901 TSTL EDTSS6_ TIN~ECHOFLG ; 
12 00019 BNEQ 4 : 
9 D O18 MOVL EDT$$G_TIN ECHOPOS RO ; 
990000006 D 3 MOV EDTS$G_MESSAGE_LINE, R2 : 
6 000000006 & BLB EDT$$G_KPAD, : 
DD C PUSHL R : 
00 PUSHL R 3 
g 11 BRB 2 : 
pb 1$: PUSHL RO ; 
01 A2 OF PUSHAB 1(R2) : 
000000006 0 FB 7 33: CALLS #2, EDTSS$SC_POSCSIF : 
04 AC D $: MOVL CHAR cH ; 
Di 4 CMPL = CH, 3 : 
D 18 0004 BGEQ 4$ ; 
7E 5E F 9A 0004 MOVZBL #94, = ($P) : 
64 1 FB 00048 CALLS #1, EDTSSFMT_CH ; 


EDTSTIECHO 
v04 


; Routine Size: 


168 
169 


EDTSTIECHO = echo a character 


EDTSSTI_ECHOCH = echo a character 


52 


64 
000009006 00 
65 


102 bytes, Routine Base: 


8739 | 1<BLF/PAGE> 


40 a2 

$5 

; 

81 
-EDTSCODE + 


o £00OoW 


000 


¢ 10 
16-Sep-1984 01 
14-Sep-1984 12: 


INCL 


:55: 


38 VAX-11 Bliss-32 Tage, a 
:51 DISKSVMSMASTER:CEDT.SRCJTIECHO.BLI;1 
EDT$$G_TIN_ECHOPOS 

64(R2), CH 

#1, EDTSSFMT_CH 

#0 EDT$$OUT FMTBUF 

EDT$$G TIN. CHOPOS 

#1, EDT$$G-TIN_ECHOFLG 
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ee hal EBTRaTPewock > sche c charecter ea8een 188s F3i32:8F 4 bcbunGhaStensceot sacdriecwo.eut;1 
Or} } END ! of module EDTSTIECHO 
5 742 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 102 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


qscssese SyGhel§ cececece Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CEDT.SRCJEDT.L32;1 377 0 40 0:00.2 
_8255$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 $000.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$: TICCHO/OBJ=0BJ$: TIECHO MSRC$:TIECHO.BLI/UPDATE=(ENHS: TIECHO) 


; Size: 102 code + 0 data bytes 
; Run Time 8 7 

; t+): Time: : 

; Lines/CPU Min: 138 

3 Lexenes/CPU-Rin: 1118 

: Y Used: 68 pages 

; oe ation Complete 
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